Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/HyperCard 2.0 Training/Intro to HyperCard 2.0/background_15491.txt

Text File | 1990-08-24 | 7KB | 286 lines

-- background: 15491 from stack: in.0
-- bmap block id: 2050
-- flags: 0000
-- background id: 0
-- name: general
----- HyperTalk script -----
on setItUp n
  put "[0] " & return into myBunch
  repeat with i = 1 to n
    put "[" & i & "] " & cd fld ("option" & i) & return after myBunch
  end repeat
  put "[" & i+1 & "]" after myBunch
  put myBunch into cd fld "Text"
end setItUp



-- hiding other pop-up fields
on hideFlds m,n
  repeat with i = m to n
    hide cd fld i
  end repeat
end hideFlds


-- dehiliting buttons
on dehiliteTheButtons m, n
  repeat with i = m to n
    set hilite of btn i to false
  end repeat
end dehiliteTheButtons



-- Hide the arrow btns
on closeBackground
  setArrows false, false
end closeBackground

-- Go to the corresponding cd
on mouseUp
  if "button" is in the name of the target then
    go cd the short name of the target of "•HC 2.0-2"
  end if
end mouseUp

-- Show and hide the arrow btns
on setArrows left, right
  set the visible of bg btn "LeftArrow" to left
  set the visible of bg btn "RightArrow" to right
end setArrows

-- Display text in introduction
on showText
  wait 20
  lock screen
  show cd fld "text1"
  unlock screen with dissolve
end showText

-- In intro, show next piece of info; otherwise, go to next cd.
on Action
  if the short name of this cd is "Introduction to" then
    send ElmoTalks to this cd
  else
    goNext
    hide cd fld "text1" of prev cd
    showText
  end if
end Action

on goPrev
  lock screen
  go prev
  unlock screen with dissolve
  hide cd fld "text1" of next cd
  showText
end goPrev



-- part 6 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=71 top=50 right=337 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 14
-- style flags: 0
-- line height: 15
-- part name:


-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=474 top=19 right=48 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 178 / 178
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mainMenuIcon
----- HyperTalk script -----
on mouseUp
  hilite the target, 1, 20
  visual dissolve
  go cd "go to main menu"
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=474 top=195 right=224 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 24471 / 24471
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MapBtn
----- HyperTalk script -----
-- Go to the Map stack.  "CameFrom" holds the name of this cd
-- so the Map can hilite the cd the user came from.

on mouseUp
  global DisSpeed, CameFrom, MapMode
  set the hilite of me to true
  lock Screen
  set the hilite of me to false
  put the short name of this cd into CameFrom
  put last char of the icon of bg btn "section" into sectionNum
  if sectionNum > 3 then put 2 into sectionNum
  put "section" && sectionNum & ":" into SubCd
  visual DisSpeed
  if MapMode is "graph" then
    go to cd SubCd of stack "•HC 2.0-3"
    HiliteMap
  else
    go to cd "indexmap" of stack "•HC 2.0-3"
  end if
  unlock screen with DisSpeed
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=474 top=235 right=264 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 10112 / 10112
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HomeBtn
----- HyperTalk script -----
on mouseUp
  answer "What do you want to do?" with "Cancel" or "Quit" or "Go Home"
  if it is not "Cancel" then
    put it into menuChoice
    global CameFrom,stakName
    put the short name of this cd into CameFrom
    put the short name of this stack into stakName
    if it is "Quit" then doMenu "Quit HyperCard"
    else if it is "Go Home" then doMenu "Home"
  end if
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=479 top=59 right=88 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 5553 / 5553
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: section
----- HyperTalk script -----
-- This handler goes back to the appropriate subMenu.  The icon of
-- this btn was previously set to reflect the subMenu that brought
-- the user here.
on mouseUp
  visual dissolve
  put "section 1:,section 2:,section 3:,section 2:1,section 2:2" into destList
  put item (last char of the icon of me) of destList into destCd
  go to cd destCd
end mouseUp



-- part 12 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=473 top=308 right=337 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 14077 / 14077
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: LeftArrow
----- HyperTalk script -----
-- goPrev is in the stack script.
on mouseUp
  goPrev
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: C000
-- rect: left=134 top=23 right=46 bottom=398
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 174
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Using this Stack as a Demonstration Tool
----- HyperTalk script -----
-- This handler does some of the flying button animation.

-- "originCdName" is used by the bg script to determine
-- where to go, as well as in the flying btn animation

on mouseUp
  global OriginCdName,TopSelBtn

  visual dissolve
  go to cd "interm2"

  set the top of me to TopSelBtn

  --    go to interm1 cd, prepare it and reveal it
  lock screen
  go to cd "interm1"
  put fld "title" of cd OriginCdName into fld "title"
  set the name of btn id 1 to the short name of me
  set the rect of btn id 1 to the rect of me
  unlock screen with dissolve

  --    go to the section cd
  visual dissolve
  go to cd OriginCdName
end mouseUp



-- part 19 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=476 top=278 right=309 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 3720 / 3720
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: RightArrow
----- HyperTalk script -----
-- The "action" handler is in the bg script.
on mouseUp
  action
  --  exit to HyperCard
end mouseUp